function [T]=read_159_T
n=5;
temp=char('                  ');
flag=['TEMP*',temp,num2str(n)];
fid1=fopen('159.pch','r');
i=1;
T=zeros(0,2);
while feof(fid1)==0
    tline1=fgetl(fid1); 
    [~,s2]=size(tline1);
    matches1=strfind(tline1,flag);
    if length(matches1)==1        
        while length(strfind(tline1,'TEMP*'))==1
            T(i,1)=sscanf(tline1(32:40),'%d');   
            T(i,2)=sscanf(tline1(41:s2),'%f');
            i=i+1;
            tline1=fgetl(fid1); 
            [~,s2]=size(tline1);
        end                   
    else       
    end      
end
fclose(fid1);
end